Function ޸( As Range, Optional ۼ̸ As Boolean = False) As String
 
    Dim ޸𳻿 As String
 
    Application.Volatile
    
    On Error Resume Next
    
        ޸𳻿 = .Cells(1).Comment.Text
 
        If Err <> 0 Then

            ޸ = ""
        
        Else
            
            If ۼ̸ = False Then
            
                ޸𳻿 = Mid(޸𳻿, InStr(1, ޸𳻿, ":") + 1)
            
            Else
            
                ޸𳻿 = Left(޸𳻿, InStr(1, ޸𳻿, ":") - 1)
            
            End If
            
            ޸ = ޸𳻿
    
        End If
 
End Function